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Sep- ACLEDT.SRCJAEDSUBR.832;1 (1) 
( 
LANGUAGE (BLI ), 
wos = (BLISS ¢ 
BEGIN 


| concencerenconsonssooososonneeeooreresseeeeooosneteseonsoonensononssenesness 
'e 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

:* ALL RIGHTS RESERVED 

ie THIS SOFTWARE I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
te ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
te INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
te COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 

i. TRANSFERRED. 

iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

i? CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
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'e¢ 

! 

: FACILITY: Miscellaneous utilities 
i ABSTRACT: 


This module contains miscellaneous routines utilized by the 
ACL editor. 


i ENVIRONMENT: 


VAX/VMS operating system, user mode utilities. 
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DAA PITRE BB» SY SY * Se O. Fo NOLEN IRIN IRIN IRI a an a ee 


‘ 
' 
! 
04 ' Sa 
Bed i 
Of AUTHOR: L. Mark Pilant CREATION DATE: 27-Dec-1982 11:45 
4 MODIFIED BY: 
050 i v03-009 LMP0213 t Mark Pilant 24-Mar-1984 12:23 
p3) : Add support for locking and unlocking the object's ACL. 
3g i v03-008 LMP0193 L. Mark Pilant 15-Feb-1984 9:37 
54 01 Remove the ACL twiddling in AEO_UPDATEACL. The actual ACL 
32 : modification takes place when the session is ended. 
b3$ i v03-007 LMP0181 L. Mark Pilant, 15-Dec-1983 9:52 


10 
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H a8 8 1} Change code to use SCHANGE_ACL instead of the ACP to do 

: 26 | : ACL twiddling. 

: 6 oe 1 i v03-006 LMP0172 L. Mark Pilant, 28-Nov-1983 12:11 
‘.- ¢ +9 13 Numerous bug fixes, support for VT2xx terminals, and a 

: e7 o7 ; session keystroke logger. 

: 65 $68 ii v03-005 LMP0103 L. Mark Pilant 28-Apr-1983 9:45 
: 66 0 } : Add support for HIDDEN and PROTECTED ACEs. 

; (68 068 1 i v03-004 LMPO100 L. Mark Pilant, 14-Apr-1983 12:11 
: +4 ° ; H Add the SFORMAT_ACL and SPARSE_ACL system services. 

ae a oft 1/ v03-003 LMP0080 - Mark Pilant, 16-Feb-1983 15:48 
; Lf 4 . | Include some additional screen positioning to get around 

: t Oot? ! : some problems with the new screen package. 

a 3s 0075 1! v03-002 LMP0076 L. Mark Pilant, 2-Feb-1983 14:43 
; 6 po78 1! Correct a ~_ that caused an access violation if the last 
: a 4 : Line of the ACL text being compressed was empty. 

; 79 $078 1/ vO3-001 LMP0074 L. Mark Pilant, 20-Jan-1983 12:13 
; 0080 1! Correctly handle the RMS journal ACE's by setting or 

i 0081 1! resetting the flags in the header when an ACE is added 

3 ; et ! or deleted. 

: § goes j iss 

; B86 0086 1 LIBRARY 'SYSSLIBRARY:LIB.L32': 

oF 0087 1 LIBRARY ‘SYSSLIBRARY:TPAMAC.L32'; 

: 8 0088 1 REQUIRE ‘SRC$:ACLEDTDEF'; 
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; 30 He 1 FORWARD ROUTINE 

; 1 42 1 AED_ COMPRESS : NOVALUE, ! Compress the screen 

§ 85 545 1 AED_SEGSPLIT, ! Split segment into two pieces 

a. w 544 1 AED_SEGCOMBINE, ! Combine two segments 

3 © 545 1 AED_COPSEGMENT, } fopy segment to working storage 
: | 1 AED_REPSEGMENT, ! Replace segment from working storage 
; 39% 0547 1 AED_POSITION : NOVALUE, ! Position to selected Line 

<< Or 0548 1 AED_UPDATEACL ! Update the file's ACL 

; 8 been : AED-SET_CURSOR; ! Set cursor position & remember 
; 100 0551 1 EXTERNAL ROUTINE 

5 10 0552 1 AED_PUTOUTPUT; ! General purpose output routine 


10 
voe-800" HERSOcHORS GHEDEAG  YAUCHE,SLUeNazB tbatats2, Page iss 
LOBAL ROUTINE AED COMPRESS : NOVALUE = 


Vw 


This routine wgeyeee the screen display with the port recent copy of 
n wrth In updating, and blank Lines (DUMMY) are 
ay and the Line table. 


the text stored 
eliminated from the disp 


i CALLING SEQUENCE: 
i AED_COMPRESS () 


i INPUT PARAMETERS: 
none 


G 
' 
| FUNCTIONAL DESCRIPTION: 
' 
' 
' 
] 


i IMPLICIT INPUTS: 
; AED_L_BEGINLINE: address of the first Line of the display 
AED_Q_LINETABLE: address of the Line table List head 


‘ 
' 
' 
' 
' 
' 
' 
' 
: OUTPUT PARAMETERS: 
: none 

‘ 
' 
' 
' 
' 
' 
' 
' 
' 
' 


i IMPLICIT OUTPUTS: 
3 none 
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i ROUTINE VALUE: 
4 none 


i SIDE EFFECTS: 
; none 
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LINES REMOVED, ! Flag indicating output state 
OUTPUT_DESC $ : 0 


: ! Output Line descr 
CURRENT _LINE : REF S$BBLOCK, Address of current segment 
NEXT_TERT_LINE : REF SBBLOCK, Address of next Line segment 
PREV _TEXT_LINE : REF S$BBLOCK, Address of erezteus Line segment 
menoved LIne : REF SBBLOCK, Address of line removed 


Current Line in the display 
! Set the starting point. 


COOOCOCOOCOCOCOSSOSGSOSOooooooOoooCoOoOoOoOOoOOOOOOOOOOOOO 


MAM 
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Fanaan 


TEMP_LINE = 1; 
LINES REMOVED = 0; 
CURRERT_LINE = .AED_L_BEGINLINE; 


BEGIN 

IF .CURRENT_LINECLINE_V_DUMMY) 

THEN 

BEGIN 

NEXT_TEXT_LINE = .CURRENT_LINECLINE_L_FLINK); 
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IF 
LINES rEMOV ED"= 
IF .TEMP_LINE LEQ’ +AED_B_LINE THEN AED -B_LINE = phy how - 1; 


1 1 PREV_TEXT_LINE =. URRENT LIN CLINE_L_BLINK); 

i i eve LTBECINLINE Ca Eat CURRENT pM ake 

1 1 HEN AED _C BEG! INE LINE; 
1 1 IF -AED_C FIRS t NE EOL” tt fr TH 
1 1 HEN AED C FIRS LINE = NEXT TTeNT L Whe: 
1 1 IF -AED_C CASTL INE QL .CUR TN 
1 18 HEN AED_C LAS LINE = éURRent CINECLINE b BLINK]; 

1 1 REMQUE (CURRENT INE CLINE FLINK NK], REMOVED_LINE): 

1 1 IF .REMOVED LIN LIN Vv “BEGIN ath ACE) 

1 1 THEN ve iNex TEXT_LIRE~ om oe Q gh Ine TABLE LIN LLFLINKI 

1 NEXT pxT INECL EGINACE] = 

1 1 i. ee tin LIR v-END 

1 ; TEXT_LIRE ar A AED, Q asLINGTABLECLINE L_FLINK] 

1 0_TEXT LINE C 

1 Pp 4 DEALLOCATE ec EREMOVED LINE 

1 5 REMOVED CINE); 

§ 1 NEXT. TEXT_LINE EQLA AED_Q_LINETABLECLINE_L_FLINK] 

1 

' : has _PAGE (.TEMP_LINE, 1) 

i Og31 

1 ; ME LASTLINECL INE _V_ENDAC 3 

1 06 th Ap Pastt a AED L7LASTLINECLINE_L_FLINK); 

1 CUR nT -FINE = NEXT: Ex? CINE: 

| 06 

06 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


bE Te” a. itd + SBYTEOFFSET (LINE_T_TEXT), 
{ 


SELSRF UR SSS LSIR OS SSE SOP OR SLAP ISSO LOSERS 


PRIMI IMSS BB MI BB PEE BEE EE PENNIES BPP PPP PPP PPP PEE EE 


§ END 
ELSE 
40 BEGIN 
41 OUTPUT DESCEDSC$W_LENGTH] = .CURRENT_LI NEELIN NE_W W_S1ZE); 
064¢ OUTPUT~DESCCDSCSA_POINTER] = CURRENT-LINELLINE1-TEXTJ; 
IF .LIRES_REMOVED 
0644 THEN 
0645 BEGIN 
4 AED_SET_CURSOR (.TEMP_LINE, 1); 
064 SCRSERASE_LINE (.TEMP-LINE, 1); 
8 AED _PUTOUT T peli i 
50 TEMP LINE = .TEMP_LINE + 
s CURRENT _LINE r MCORRERIT * LIWECLINE _L_FLINKI; 
END 
rey UNTIL (.TEMP_LINE GTR 20) 
3? OR (.CURRENT_LINE EQLA AED_Q_LINETABLECLINE_L_FLINK)); 
33 RETURN; 
§ END; ! End of routine AED_COMPRESS 


-TITLE AEDSSUBR 
IDENT \V 2 2500\ 


-PSECT AED_COMMON,NOEXE, 


ne 
ue 
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00000 AED_L_FLAGS: 
00004 AED_B8 ori ons: 


tat AEDLL at 


QO00C AED_Q _OBJNAM: 
00014 AED_L _woisTERn: 
00018 AED_L_PAGEWIDTH: 
QO01C AED_L “PAGES ITE: 


LK 
wen 
0021 : 


-BLKB 
0024 AED_B_LINE: 
-BLKB 


0008 -BLKB 
00028 AED_B_SAVE COL: 


-BCKB 
00029 -BLKB 
0002C¢ AED_B_SAVE LIN: 
90020 -BLKB 
000 AED_Q_LINETABLE: 
0003C¢ AED _L_CURACE : 
00040 AED_L_FIRSTLINE: 

-BLKB 
00044 AED_L -LASTLINE 
00048 AED_L -BEGINL INE: 
0004C AED_W ~INPUTLEN: 


we owe owe owe OO Oe Ow Oe 


— 
™m 


-BLKB 
0008 AED_Q_DEL ry 


-OLK 
00058 AED_@_DEL LINE: 
00060 AED_@_DEL WORD: 
00068 AED_B_DEL_ CHAR: 

-BLKB 


90069 -BLKB 
C AED_A_ACLBUFFER: 
00070 AED_@_OUTLINE: 
00078 AED_W_OBJCHAN: 
poor -BLKB 
7C AED_W_TERMIN: 


mm © 2 We © @O ORM 2 Rk FS 


Sm 


acpssuae iScdeoctoge 28:5g:1¢ yay 
-BLKB § 


BO086 neo v_reRROUT 
B008% AED_v_ if uc 


0008C AED_L Stites 
00090 AED_B_FIELD: 
BLKB 


$6094 ned v_FLELDBES: 
$009 AED_W_FIELDEND: 
-BLKB 


009A “BLKB 
009C AED_B_ITEM: 
-BLKB 


0090 -BLKB 
OOAO AED_W_ITEMBEG: 
-BLKB 


LEDT SRETAESSUBR B S301 Page 4/ 


90042 “BLKB 
OOA4 AED_W_ITEMEND: 
000A BtKB 
OO0A8 AED_B_ACETYPE: 
-BLKB 

00A9 “BLKB 
OOAC AED_W_JOURNAL : 
-BLKB 


wm NN ww FOTO OMT Ow Oo Ta OFT 


QO0A -BLKB 

00080 AED_T_CURLINE: 
-BLKB 

002C4 AED_W seh a 


02¢ ‘Bike 
O0S8 JOURNAL FAB. 
“.BLKB 80 
00318 JOURNAL _NAM: 
-BLKB 96 
00378 JOURNAL_RAB: 


f 68 
0038C JOURNAL _XABPRO: 
00414 JOURNAL_BUFFER: 

-BLKB 10 
0041 “BLKB 2 

420 JOURNALINDEX: 
00424 RECOVER_FAB: 

-BLKB 80 
00474 RECOVER_NAM: 

-BLKB 96 
00404 RECOVER_RAB: 

-BLKB 68 


Sm 
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00518 cue tf 
00532 “BLK } 
RECOVER_ INDEX: 

-BLKB CG 
.EXTRN CLISGET_VALUE, CLISPRESENT 
-EXTRN LIBSFREE_VM, Lue GET_VM 
EXTRN LIBSTPARSE SCRSDOWN” SCROLL 
*EXTRN CREERASE LINE. SCRSERASE PAGE 
“EXTRN SCR ser CORSOR, SCRSSET SCROLL 
“EXTRN SCRSUP_SCROLL, AEDS OB JCOCKED 
“EXTRN AED -BADKEEF AEDS_COCATERR 
-EXTRN AEDS“INIR ADERR 
EXTRN AEDS “JOUWRIT RR 
TN A sauoreat 
*EXTRN AEDSTRECREADERR 
SEXTRN AEDS-RECOPENIN, AED$_RECLOSEIN 
-EXTRN AEDS-BADUIC, AEDS_BADGRPMEM 
EXTRN AEDS-SYNTAX, AEDS BADTYPE 
-EXTRN AEDS-NOITEMSEL, AED$_MUSTENTER 
EXTRN AEDS-INIOPENIN, AED$-INICLOSIN 
TEXTRN AEDS "DEFSYNTAX. AEDS -NODELETE 
“EXTRN AEDS-NOMODIFY, AEDS _NOHIDDEN 
ZEXTRN AEDS-DUPLICATE, AEDS_NOCOMBINE 
SEXTRN AEDS"NODEFAULT, AEDS-NOCTRLCHAR 
“EXTRN AED$"NOT AEDS_CONTROL_C 


NOTFOUND 
SEXTRN AEDS~ACLUPDATED 
SEXTRN AEDS"NOCHANGE, AED_PUTOUTPUT 


-PSECT SCODES,NOWRT,2 


01FC 00000 .ENTRY AED_COMPRESS, Save R2,R3,R4,R5,R6,R7.R8B : 0553 
58 000000006 00 9€ 0000 MOVAB SCRSERASE PAGE, Rg : 
5 0000" CF 9€ 000 MOV AED_L_LASTLINE, R : 
SE 10 ¢ 0005 eUBL rit SP : 
54 Q1 DO 0001 MOVL #1, TEMP_LINE : 0600 
§ D4 00014 CLRL LINES_REMOVED + 0601 
52 06 =A D0 0016 MOVL sOA Dt BEGINLINE, CURRENT_LINE + 0602 
03 OA A a 5 aor 1$: BBS ! , O(CURRENT_LINE), 2$ : 
53 62 D 8 2$ MOVL §§ (CURRENT_LINE), NEXT_TEXT_LINE + 0609 
33 04 A2 0 MOVL 4 (CURRENT LINES, PREV TEXT LINE ; 9610 
f 9 CMP AED. _BEGINLINE. CURRENT_LINE ; 0611 
04 A? 3 D MOVL § NEXT_TEXT_LINE, AED_L_BEGINLINE : 061 
52 FC a7 Y 5 3$ cMPL AED_C_FIRSTLINE, CURRENT_LINE nek 
FC OAT 3 D 9 MOVL § NEXT_TEXT_LINE, AED_L_FIRSTLINE > 0614 
52 7 D} ; 4$: cHPL AED_C_LASTLINE, CURRERT_LINE ; 0615 
67 04 =A 06 4 MOVL  4(CURRENT_LINE), AED_L_LASTLINE : Ig 
04 AE 62 OF 00046 5$: REMQUE (CURRENT CINE), REMOVED_LINE : 061 
2 D9 4A MOVL RERO ED INE. RO : 0618 
D A On f 4 BLBC =: 10(R : 
1 EC A? 9E 0005 MOVAB AED_Q_LINETABLE, R1 > 0619 


Sm 
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51 ; é cMPL ie LTEXT_LINE, R1 F : 
= OA A 1 Sins itz « 18Gy- JEXT_LINE) 3 : 
1 EC NM 64 "  MOVAB as LINE FABLE, Rt 3 : 
1 i é cHPL £6, TEXT_LINE, Ri : : 
OA AS 2 ep BISB82 VOCPREY TEXT_LINE) : : 
4 ae F 1 7$ PUSHAB DAtIN : ; 
04 A 8 A ¢ 7% mOVZYL BCR ), &(SP : ; 
A 14 3 79 ADDL 20, 4<(SP) ; : 
000000006 si 08 Fe bog Chtse Se. vm : : 
30 ec a? 9 0 MOV 6.6 LINETABLE. RO : ; 
0 33 ; CMPL  § NEXT_TEXT_LINE, RO F F 
3 BNEQ : : 
4 Bb 0009 PUSHE TEMP_LINE : : 
68 02 FB 0 CALLS Ip SCRSERASE_PAGE 3 : 
50 67 DO 00098 8$ MOVL AEDt otASTLINE. RO F : 
05 OA A 1 £0 000 BBS : ; 
6 fy BO 000A MOVL Hs AED_L_LASTLINE ; ; 
5 35 DO QO0AS 9$: = MOVE =—NEXT TEXT LINE, CURRENT _LINE 3 : 
0 56 €8 000 BLBS § LINES_REMOVED, 1 F : 
or DD OOOAB PUSHL fl : F 
4 DD OOOAD PUSHL : 
OE OR eter | 
54 £0 A? 38 : F 008 "  CMPZV panes AED “B_LINE, TEMP_LINE : 
; 0088 BLSS ‘ 3 
£0 a7 9 008 DECB AED B_LINE : 
08 AE 08 A 80 OC2 11% MOVW CURRENT LINE) QuTPUT _DESC ; 
OC AE 4 =A : 0c MOVAB 20(R2), OOTPUT -bESt+4 : 
1¢ ES 000CC BLBC LINES _REMOVED,~ : 
4 bp 00001 PUSHE — TEMP_LINE 
0000v CF : FB Sp CALLS iy KED_SET_CURSOR : 
0D 900 PUSHL  # : 
4 DD OOODA PUSHL TEMP : 
000000006 00 02 FB 0000 CALLS @# SCREERASE_LINE : 
08 AF 9F O00E PUSHAB out : 
00006 CF g} E ite CALLS AE Acc PUTOUTPUT ; 
52 é D E "MOVE CEURRENT LIN ), CURRENT_LINE : 
14 D} F 138: cHPL TEMP. LINE, #20° ; 
50 EC AY 9 F MOV AED_Q LINE TABLE : 
50 F CMPL CURRERT LIN ms | We ; 
FC BEQL 4$ : 
FF 0 Fe BRW 1$ ; 
01 148: ~=——RET : 


3; Routine Size: 258 bytes, Routine Base: $CODE$ + 0000 
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GLOBAL ROUTINE AED_SEGSPLIT (POSITION, EXACT, FIRST, NO_REPAINT) = 


i FUNCTIONAL DESCRIPTION: 


This fous one takes the current Line soumene and splits it up into 
two pi eres. The second piece becomming the new current line. The 
split will occur et the current pos ition or (usually) after the 
most recent delimiter. 


i CALLING SEQUENCE: 
i AED_SEGSPLIT (ARG1, ARG2, ARG3, ARG4) 


1 
! 
a 
' 
' 
1 
! 
t 
i 
! 
! INPUT coor renee 

! ARG1: address of the cell containing the qurrent buffer position 
! s = do the split at the current posit 

! = fi af he previous delimiter, ane sete after it 

: = ees : jon to the first Line segme 

! = ion t¢ the second (spl 

' ARGS: 1 = pos! repaint th diseley’ artes SPLICE ing line 

: = repaint the display after splitting the line 

! IMPLICIT INPUTS: 

: AED_T_CURLINE: the current Line segment 

t 

1 

1 

i) 

t 

' 

4 

t 

1 

' 

i 

' 

‘ 


i QUTPUT PARAMETERS: 
‘ ARG1: address of the cell containing the current buffer position 


i IMPLICIT OUTPUTS: 

4 none 

i ROUTINE VALUE: 

none 

i SIDE EFFECTS: 
none 


BEGIN 
BIND 
SEGMENT_SIZE = AEDT CURL INECLINE W SIZE : WORD 
BUFFER = AEDT CURLINECLINE-1-TEXT) : VECTOR C,BYTE); 
LOCAL 
T_DESC : SBBLOCK gescet _5_BLNI, } ; Output Line descr 
Newt TERT LINE : REF $88 ! addr of new Line segment 
PLIT_SEGMENT : REF $8t tock: ! Addr of split portion 
SPLIT SIZE, ' Size of split off s 
SKIP_CHAR; ! Skip cha recters Ay t eid” count 


! Initialize necessary items. 
CHSFILL (0, DSCSC_S_BLN, OUTPUT_DESC); 


az 
3 


RULE Senos wv OSHSIRA PW OD NE AE OO Ooo SOU OOO MOF UO Doe 


: 

| 
i = 
766 NEU TE 
769 


HSobeoct9ge 28:5s1¢  yaucdt elie 32.140: 


! If this is not an exact split, find the previous delimiter. 
A. NOT .EXACT 


DecR J FROM .SEGMENT_SIZE - 1 T0 0 


IF (.BUFFERC.J2_LSS 'A' OR .BUFFERC.J]_GTR 'Z") 
AND (.BUFFERL.J) LSS "O° OR .BUFFERL.JJ GTR 9°) 
AND .J LSS ..POSITION 
THEN 

BEGIN 

.POSITION = .J ¢ 1; 

EXITLOOP; 

END; 


! Split the Line up into two segments. This may cause the second segment to 
i be null if the index was at the end of the segment. This is OK, as it will 
! be cleaned up when the segment is ae 


SPLIT_SIZE = .SEGMENT size. = Pi 
AED_L-STATUS = ALLOCATE ( gSPtit. 


if _ »AED_L_STATUS 


OSI 
size + éovteorrser (LINE_T_TEXT), 


SIGNA a (.AED_L_STATUS); 
RETUR N 0; 


! Copy the text from the current Line as AED ace S$ 
ie 


GMENT clears out the 
! current Line buffer. Then, replace the modi 


E 
d first part of the original 
ne. 


hy BF (, et ~$h0e BUFFERC..POSITION), SPLIT_SEGMENTCLINE_T_TEXT]); 


SERSERASE. ai C!AED.B LINE, .SEGMENT SIZE + 1); 
NEW_TEXT_CINE = AED_REPSEGMENT (); 


' FILL in the ,Racoenery information about the split portion of the original 
i Line segment. 


peut. SEGRENTES 1a W_SIZE] = .SPLIT_SIZE; 

W_TEXT_LINECCINE V_ENDACE 
HEN SPCIT ~SEgREN LINE. 8 FLAGS 5 5m M_ENDACE 
ELSE SPLIT-S LINE “FLAGS 

TEXT The ane ‘i ENDATE] = ; 

SPETTS SEGMENTCLINE-L- aT = ETE vere -LINECLINE_L_BINACE) 
INSQUE (SPLIT SEGRENT LINE _L_FLINK weTex! CINECLINE U-FLINK3); 
AED_W_T OTALSIZe = .AED_W_TOTALSIZE + EP CIT_STZE; 
‘ petoraing the field index for the split portion of the Line vate is done 
i by counting the number of fields in the first part of the Line 
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$4538 v4.0 
CJAED ‘ 


4d 
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ON 


NEW.T XT _LINECLINE_T_TEXT], .J; .BYTE] EQL 'C* 
NEW.T AT LINECLINE_T_TEXTI, .J; BYTE] EQL *J" 


 vVIere 


MEW OOONOuUse 


uw 


BEGIN 
eee CNEW_TEXT_LINECLINE_T_TEXTJ, .J; ,BYTE] EQL ‘',' 


Ooo 


GEQ 1 AND .AED_B_ACETYPE NEQ ACESC_DIRDEF 
= 
D = .AED_B_FIELD + 1; 


PP i i i | 


N “LS 
ELSE AED_B 


79 
4 73¢ END; 
79 i pAEO BF TELS GEQ 1 
795 BEGIN 
79 IF .VECTOR FEW TEXT LINECL INET TEXT). -J; -BYTE] EQL ‘=' 
79 OR .VECTOR CNEW TEXT LINECLINE T_TEXTJ, .J; BYTE] EQL ‘+" 
THEN AED_B_FIELB = .AED_B_FIELBD # 1; 


END; 

SPLIT_SEGMENTCLINE_B_FIELDST) = .AED_B_FIELD; 
! Position to the correct segment. 

IF .FIRST 

THEN 
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£33333Ssceeeee.................., eee 
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8 (.NEW_TEXT : 
1 1 OPSEGMENT (.NEW_TE é); 
¢ 1 INSGUE (AED_T_CURLINECLINE L_FLINK], .NEW_TEXT_LINECLINE_L_BLINK)); 
F .AED_L_FIRSTLINE EQL .NEW-TEXT LINE 
64 Hi THEN AED C FIRSTLINE = AED T~CURLINE; 
5 1 IF .AED_C CASTLINE EQL .NEQ@ TEXT LINE 
8 THEN AED_C_LASTLINE = .SPLIT_SEGAENT; 
IF .AED_C BEGINLINE EQL .NEW-TEXT LINE 
THEN AED_C_BEGINLINE = AED_T_CURLINE; 


ELSE 


CINE L_FLINK], .SPLIT_SEGMENTCLINE_L_BLINK)); 
NEQ_TEXT LINE 


! Now repaint the display, This is done by either scrolling down and repainting 
! the first part of the display or repainting from the current position to the 
! end of the display (or the end of the ACL). This is necessary to echo the 
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#21 

#2, SCRSSET_CURSOR 
AED_L_ STATUS 

4 “ 7 ates 8$ 
COLOMN, -(SP) 
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12-808-]88e 73 33: 3 ACLEDT. SRCVAEDSUBR.B32:1 9 a) 
53 DD 001 PUSHL NEW. TEXT LINE ; 
1 FB OO18A CALLS #1, AED _COPSEGMENT ; 
AQ OE 0018F INSQUE AEO_T =CORLINE a4 (NEW. TEXT_LINE) ; 
A 4 cMPL AED “LIFIRSTLINE, NEW_TEXT_CINE ; 
A 19A MOVAB AED_T CURL INE AED_L_FIRSTLINE ; 
A : 19 208 cMPL AFD LILASTLINE, NEQ_TEXT_LINE : 
AE D 18 MOVL § SPLIT_SEGMENT, L_LASTLINE : 
nS D1 IAA 218 cHPL A D. L“BEGINL Ihe NEU TEXT_LINE : 
i H H ROVAB AGD_T_CURLINE, AED_L_BEGINLINE ; 
DD 00187 228 PUSHL ; 
i FB ip CALLS 2 AED_POSITION ; 
Oi Fe Ooich «= EALLS. TaD copseonent ; 
a? oj ich cMPL AED: L ~[ASTLINE, NEW_TEXT_LINE : 
Ad 9 0158 MOVAB AED_T CURL INE AED_L_LASTLINE ; 
AC f 0105 23$: BLBS NO REP és ; 
AS 0109 CMPB H- § _LINE, #10 : 
4B 1A 00100 BGTRU : 
01 DD 001DF PUSHL : 
1 DD 00161 PUSHL : 
ooooso0eg 06 FB OOlEa Att re. ofr RSBOUR SCROLL 
m3 $0 sir ROVE Aeé.t GEGINC TNE. NEU_TEXT_LINE 
3g OF Coles Gheé3ss ; 
a3 80 o1F8 24$: MOVW i NEW_TEXT_LINE), OUTPUT_DESC ; 
AS 9E 00 MOVAB  20(R33, OUTPUT_DESC+4 : 
o4 DD 00205 PUSHL : 
DD 00207 PUSHL : 
0 FB 0 09 CALLS i 4 2 AED see CURSOR 
Of FB 6 1 CALLS sa 5 PUTOUTPUT : 
AE 3¢ 0 16 MOVZWL oufput T_BESC, -(SP) ; 
‘ D6 OO2TA INCL : 
DD 0021C PUSHL : 
02 FB 00 3 CALLS SCRSERASE_LINE : 
: D 9 MOVL Re, TEXT LINE), NEW_TEXT_LINE ; 
34 + 4 $e AOBLEQ Ree J, 24 
4g pd A 27$:  MOVL  AED_T_CURLINE, NEW_TEXT_LINE : 
AD OA MOVZBL AEDTBULINE, J : 
35 Bf BREE (298 
A B0 6 28%:  MOVW (NEW_TEXT_LINE), OUTPUT_DESC : 
AS 9 d MOVAB —20(R37, OUTPUT DESC +4 : 
DD 0024 PUSHL : 
A eee : 
Of FB 0024C CALLS oufPy AED_PUTOUTPUT : 


<> 
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7E 08 «AE 3 MOVZWL OUTPUT_DESC, -(SP) : 0863 
D INCL (SP) : 
0D USH ; 
A F CALLS #2, SCRSERASE_LINE : 
é p C MOVL (NEW TEXT LINE ; NEW. TEXT_LINE : 
AO OA MOVAB AED_G LINE ABLE, R + 0865 
i p CPL W-TEXT_LINE, RO ; 
CA 52 4 F 938 AOBLEQ # : 28$ : 085 
4 BC D4 C 30$ CLAL aPost fon 7 
AC Eg BLBS FIRST, 31 7 
5 aC BLBS EXACT 2 
04 BC A c 31: MOVZWL EGHENT SIZE, @POSITION ; 74 
90 ad 4 BC 01 7¢ 32$:  ADDB3 #1, @POSITION, AED B COLUMN + 087 
E 90 Ad 9A 0 MOVZBL AEO_B_COLUMN, (SPT + 087 
7E 94 AD OA MOVZBL AED"B-LINE, -(SP) : 
0000v cf 0¢ FB 028A CALLS #2, AED_SEf_CURSOR : 
0 O28F MOVL #1.R + 0879 
0 RET : 
50 D4 00293 33$:  CLRL RO 0880 
04 0029 RET 


; Routine Size: 662 bytes, Routine Base: S$CODES + 0102 


voe=000" Vesheocage @#09:48 YA Sh enadd dSaate? Page (SS 


: ? ; ! GLOBAL ROUTINE AED_SEGCOMBINE (POSITION, DIRECTION) = : 
; ? 5 1 i** : 
i 4 { FRINCTIONAL DESCRIPTION: | : 
; 4 1/ This routine takes two Line segments and combines them into one : 
; 440 3 1? large segment. if he result ng combined segment is larger than : 
: rr} : : the page width, s split up into two segments. : 
; 44 1 1 i CALLING SEQUENCE: ; 
; tee 4 1 : AED_SEGCOMBINE (ARG1, ARG2) : 
> 46 94 1! INPUT PARAMETERS: ; 
3; 44 95 1! ARG]: address of the cell containing the desired buffer position : 
; 448 36 1} ARG2: 1 = combine current Line with next Line : 
3 £83 : : : 0 = combine current Line with previous Line ‘ 
i 431 839 } {| IMPLICIT INPUTS: ; 
: 438 1 1 ! OUTPUT PARAMETERS: : 
; t+) 4 } : ARG1: address of the cell to contain the buffer position : 
3 436 904 1 ! IMPLICIT OUTPUTS: ; 
; $2 ' } none ; 
: 239 1 | ROUTINE VALUE: : 
i tee jj tone : 
i 46 910 1 ! SIDE EFFECTS: : 
; 46 911 1! none : 
; 464 aig 13 : 
im ait 
: 263 915 2 BEGIN i 
: 285 319 5 BIND ; 
; 470 0918 SEGMENT_SIZE = AED_T_CURLINECLINE_W_SIZEJ : WORD; : 
: 47 0 2 LOCAL ; 
; 47 921 TPUT DESC : SBBLOCK COSC$C_S_BLN), ! Output Line descr : 
3: 474 ; NEW TERT LINE : REF SBBLOCK, ' Addr of new segment : 
3 475 PREV LINE : REF $BBLOCK, ! Addr of previous segment : 
: 47 3 COMBINED LINE : REF $BBLOCK, ! Addr of combined segment : 
3 rt 4 , REMOVED _CINE : REF SBBLOCK; i addr of Line remove ; 
; e2 ; ! Initialize any necessary items. : 
; 2 1 § CHSFILL (0, DSCSC_S_BLN, OUTPUT_DESC); : 
; 4 ; Determine whether @ a tet | can be combined based upon the direction : 
; 2 : ! of the combination a : 
: 4 If :DIRECTION ; 
; 4 5 : 
; 4 9 "BEGIN : 
; 4 9 IF .AED_T_CURLINECLINE_L_FLINK) EQLA AED_Q_LINETABLECLINE_L_FLINK) : 
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+ COMBINED_LINE); 


lL FLINKI; 
CLINE _L_FLINKI; 
E] + 


jue 
INE 
BLINK); 


INK] EQLA AED_Q_LINETABLECLINE_L_FLINK 
GINACE] 
& & 


(); 


NT 
NECLINE_L_FLINK); 


SEGME 
EV.LI 
RT_LINECLINE 


-NOCOMBINE) ; 
-NOCOMBINE) ; 


L (AEDS 
_REP 
»PR 
_TE 


L (AEDS 
T_LINE = AED_REPSEGMENT (); 


T CURLINECLINE_V_ENDACE) 


-AED_L_STATUS); 


0: 


PREV_LINE = AED 
EXT_LINE = 
LINE = .NEW 

-AED_L_STATUS 


be 
END: 
v. 
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URN 
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SESGUE CAD’? CORCINE TE INE TFL iNK, .CORBINED.LIWECLINE.L. BLINK) 
F A pt FIRST Ane EGL NPRED LINE fHEN AED aTtaiet z xP T_CURLINE; 
F ;A DL ILAS LINE EQL .NEW TEXT LINE THEN AED_L_LASTLINE = AED“T CURLINE; 
F_.AED-L-BEGINLINE EQL .PREV LINE OR .AED_L_BEGINLINE EQL .NEW-TEXT_LINE 
HEN AED _C BEGIN. INE = AED CURL INE 
REMQUE (PREV LIN : NE_L FCIRK REMOVED LINE) 
DEALLOCATE “iEROvED C TNECLINE_U_SIZE +"$BYTEOFFSET (LINE_T_TEXT), 
REMQUE (NEW_TEXT LIRECLINE L_FLINK], REMOVED LINE); 
DEALLOCATE v Renoven IN cine MSc + SBYTEOF ESET (LINE_T_TEXT), 
REMOVED CINE); 
IF .COMBINED_LINELLINE_W_SIZEJ GTR .AED_L_PAGEWIDTH 
BEGIN 
AED_SEGSPLIT (ZREF (.AED_L_PAGEWIDTH = 1), 0, 1, 1); 
AED-POSITION (AED_T CURL INE) ; 
QUTPUT DESCEDSC WOLENGTH] = .AED_T_CURLINE LINE W_S1ZE); 
OUTPUT-DESCLDSCSA-POINTER] = AED-T~CURLINELLINE.T-TEXTJ; 
AED_SET_CURSOR (.AED 13 
AED-PUTOUTPUT (OUTPUT DESC): 
SCRSERASE_LINE (.AED 6 LINE, .AED_T CURLINECLINE_W S176) + 1); 
NEW TEXT CINE = .SB8BCOCK C.AED T_CURLINECLINE L_FLINK), LINE_L_FLINK); 
OUTPUT _DESCEDSC$W LENGTH) = .NEWTTEXT_LINE LIRE-W_S1ZE 4; 
TPUT-DESCCDSCSA-POINTER] = NEW TEXT-LINELLINE.T-TEXTI: 
SET CURSOR (.AED B LINE + 1,71); 
TOUTPUT (OUTPUT DESC); 
SERASE_LINE (.AED_6_LINE + 1, .NEW_TEXT_LINECLINE_W_SIZE] + 1); 


BEGIN 
AED_POSITION (AED_T_CURLINE); 


Since the combined Lines fit on one Line, it will be necessary to shift 

all of the Lines after the combined Line up one. This is done by either 
scrolling down and repainting the first part of the display or Fogesnt tag 
from the current position to the end of the display (or the end of the ACL). 


If .AED_B_LINE LEQ 10 
THEN 


T CURSOR (20,1); ! weee TEMP teen 
SCROLL (); 

RT Lin = .AED_L_BEGINLINE; 
FROM 1 TO .AED_6_LINE 
I 


m 
wa 

@ =—Cwe 

m cmon 
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#3 
33 


; 1 4 F .AED_L fateh D_ , NDA 
BEE Pe a ethene rma, 
5 1035 § inch } FROM .RED“B_LINE 10 26 
: 6 1 5 BEGIN 
; 61 IF AN EW_TEXT_LINE EQLA AED_Q_LINETABLECLINE_L_FLINK] 
; 3H 1 BEGIN 
: 61 1 F .J LSS 20 THEN SCRSERASE_PAGE (.J, 1) 
abe pyttotr 
; 61 1 OUTPUT_DESCCDSC$W_LENGTH] = .NEW_TEXT_LINECLINE_W_SIZE); 
3 o19 1065 SUTPUT beset bs C$A POINTER] = NEUUTEXTOLANEELINE ToTER TI: 
: 68 1 § AED_SET CURSOR (.J, 1); 
: 61 1 AED“PUTOUTPUT (OUTPUT _bESC); 
: 620 1 SCRSERASE LINE (.J TPUT DEsctDS DSC$W_LENGTH] + 1); 
> 621 1 NEW_TEXT_CINE = “new TEXT_LINECLINE_L_FLINKJ; 
; 6 g 1070 END: 
a 
> 625 1 i AED_B COLUMN = ..POSITION + 1; 
; 6 6 107% AED-SET_ CURSOR (AED “B_LINE, .AED_B_ COLUMN); 
: 6 : 1076 RETURN 1; 
3; 6 107 
: 6 1078 1 END; ! End of routine AED_SEGCOMBINE 
SEGMENT_SIZE= AED_T_CURLINE+8 
OFFC 00000 ENTRY AEDS S GCOMBINE, Save R2,R3,R4,R5,R6.R7,RB,- ; 0881 
SE 14 C2 0000 SUBL £26. 3 ; 
08 00 6E 00 2¢ 0000 MOVCS #0, (SP), #0, #8, OUTPUT_DESC ; 0929 
AC £9 Ht BLBC DIRECTION, 6$ : 0934 
909 ' CF F O19 MOVAB AED. Q_LINETABLE, RO + 0937 
0 000' CF 3 001 CMPL  AED-T“CURLINE, RO ; 
‘ Baie BNEQ 3 
70 0000° CF i. 5) 333 ate BBs , AED_L_FLAGS, 8$ ; 0940 
12 0000' ct E BBS AED T_CURLINE+10 > 0943 
8 0000" CF Db MOVL in cOrCI INE NEW O78 LINE : 946 
03 0000° CF E BBC f “AED, T¢ E+T0, 28 > 094 
ie on BB eS $: Brae iOtwEL TE TERT ti i, Wes FA : 8308 
16 0000' CF E1 $f: BBC , AED_L_ FLAG AGS, Ms : $983 
DD PUSHL : 
DD PUSHL #21 : 
000000006 00 FB CALLS #2, SCRSERASE_PAGE : 
DD PUSHL @ : 
000000006 2 Pe 3 CALS #9, CRSSET. CURSOR 
000000006 ge DD 4$: SHL -#AE Eos No : 


se 
, moet 


0000v 


16 0000" 
000000006 
000000006 
, Co00RsoeF 

0000' 
000000006 


00000000" 8F 0000° CF 


0000° 
0000Vv 


04 
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148%: 


15$: 


i 168: 


CALLS 


CALLS 
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#1, LISSsicnAt 
AED 


‘ F _L.FLAGS, 10$ 

#0, AED_REPSEGMENT 

R PREV LINE 

(PREV_LI ), NEW_TEXT_LINE 
AED_O_ LINETABLE, RO 
AEDT CURLINE+4, RO 

AED. T_CURLINE+10, 13 

. , AED_L_FLAGS, 9$ 

4 1 


83, AED_L_WORSTERR, #<AED$_NOCOMBINE&7> 


#AEDS_NOCOMBINE, AED_L_WORSTERR 
a. A AED -REPSEGHENT 

NE 
OMEN Fext UThED 
OMB 


Brae CINE) 
(NEW spi EP NED, 


RO, R 
: {Rr9) 
Bee Ne 


as: td Lissert VM 


TATO 
VM *s¥ATUS. 1 13s 
#0; (SP), #0, R2, @COMBINED_LINE 


vm STATUS, pte L STATUS 
A 5 we T9$ 
hep v fst 16$ 


PREV_LINE 


SCRSERASE_PAGE 


T CURSOR 
us 
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$00" cE A bore nOVIBL AED BLN arts 
000000006 FB 001 CALLS #2, SCRSSEf_CURSOR ; 
0000 cf 166 178:  MOVL AED_L_STATUS, R : 
ce a a 
1 50 F 001 xy #0, #3, RO, R1 : 
2] 0000' CF 83 cHPZV ! F 8 AED_L_WORSTERR, R1 : 
0000" CF 4 ca ROVL R , AED_L_WORSTERR Fad 
04 eC 08 A 1 18§ MOVZWL 8 (PREV_LINE), @POSITION : 09 
AE DO 001 MOVL COMBINED LINE, R6 + 0985 
08 A6 5 1 MOVW RO, B(ROY : 
E A? 3¢ 001 MOVZWL 8 (PREV_LINE), (SP) + 0986 
8 AB 3C 0019F MOVZWL 8(NEW_TEXT_LINE), R11 : 0987 
A A6 3 O1A3 MOVZ (R6) R19 + 0989 
9 4 A&B 9E OOIA MOV O(R6S, R : 
SA 00 14 «A? of 2c 0148 MOVCS (SP), 2O0(PREV_LINE), #0, R10, (R9) : 
§ 18 001B2 BGEQ 208 3 
59 6— C O1B4 ADDL2 (SP), R9 : 
SA 6E g 1B7 SUBL2 (SP); R10 ; 
SA 00 16 AB 36 C O1BA MOVCS R11, 20(NEW_TEXT_LINE), #0, R10, (R9) : 
4 OA AZ? €9 001C1 20$:  BLBC 10(PREV_LINE), 21$ + 0990 
OA A 1 HH 01¢5 BISB2 #1, 10(R6) ; 
04 OA A 1 Fi 01C9 21$: BBC #1, 10(NEW_TEXT_LINE), 22$ + 0991 
OA Ab 2 8 01C BISB2 #2. 10(R6) F 
OC Ab of A? DO 001D2 228:  MOVL 12(PREV_LINE), 12¢R6) : 0992 
10 Ab 10 AZ 30 O10 MOVE  16(PREV LINE) « 16(R6) : 099 
04 87 66 : 1p¢ INSQUE (R6), @&(PREV LINE) + 0994 
2 04 AE DO OO1E MOVL  COMBINED_LINE> Re : 0995 
52 DD O1E4 PUSHL Re : 
0000v CF 07 FB O01E6 CALLS #1, AED_COPSEGMENT : 
04 2 0000 CF OE OiEB INSQUE AED_T_CORLINE, @4(R2 + 0996 
0000" cr DI OIF cMPL AEDIL-FIRSTLINE, PREV_LINE : 0997 
0000" CF 0000' CF 9 bee MOV AED_T_CURLINE, AED_L_FIRSTLINE ; 
4 0000' cf p} OFF 238: cMPL AEDLLASTLINE, NEQ_TEXT_LINE + 0998 
0000" CF 9000" CF 9E 00 Og MOV AED_T_CURLINE, AED_L_LASTLINE ; 
7 000° cr ? % 24$: cHPL ADIL BEGINLINE, PREQ_LINE : 0999 
58 0000° cr oj 18 cmPL AED _L_BEGINLINE, NEW_TEXT_LINE ; 
0000" CF 0000' ff 1 358: MOVAB AED T_CURLINE, AED_L_BEGINLINE + 1000 
AE 67 6$:  REMQUE (PREV"LINE), REMOVED-LINE : 1001 
8 AE OF PUSHAB REMOVED_LINE : 1003 
50 Cc (OA po MOVL REMOVED LINE. RO ; 
04 AE 6 A ¢ v2we 8(RO), &(SP) : 
4 AE 1 g ADDL2. #20, &(SP) ; 
04 AE SF PUS (SP) ; 
000000996 00 9 FB CALLS #2, LIBSFREE_VM ; 
AE OF 4 REMQUE (NEW TEXT LINE), REMOVED_LINE + 1004 
08 AE 9F 00244 PUSHAB REMOVED_LTINE > 1006 
50 C AE DO 00247 MOVL §REMOVED“LINE, RO ; 


Sm 


11 
i 3 bate “1984 23:59: AX-11 Bliss-32 V4.0-742 Pa 5 AEC 
rite tt 12-80-1382 #9:33:48 Aer Ebr SaetaEssuma Boost ” (83 v0. 
cs 08 ao 3 MOVZWL 8(RO), 4(SP) ; : 
ee 1 OR lak : : 
000000006 a“ 0 FB CALLS . poled. tik Ao : : 
0000° CF 08 Ao 1 if 1 cReEV #9 7i6,-8(ROS, AED_L_PAGEWIDTH ; # 
008¢ 31 C BRW Sef : 31 
1 dD fF 27$:  PUSHL # : 31 
1 DD PUSHL #1 : 31 
; D4 7 CLRL_ =(SP) : 31 
OC AE 0000" CF 0 § f SUBL3.  # AED_L_PAGEWIDTH, 12(SP) : 31 
OC AE OF c PUSHAB P : 31 
FAE6 CF 04 £B O027F CALLS #4, AED_SEGSPLIT : 31 
0000" CF 9F 0 PUSHAB AED_T CORLINE : : 1 
0000v CF 1 FB CALLS #1, AED POSITION : 2] 
OC AE 000° CF 3 0 MOVW AED _T_CORLINE+8 OUTPUT_DESC ; 31 
10 AE 000" CF 9 33 MOVAB AED _TCURLINE* 6, OUTPUT _DESC+4 : : | 
7E 0000" CF Bf MOVZBL AED_6-LINE, -(SP) : 31 
0000v CF 02 FB 002A CALLS #2, AED. SEf_CURSOR : 31 
0c AE oF 0 A PUSHAB OUTPUT BESC : : 1 
00006 CF 01 FB 002A8 CALLS #1, AEB PUTOUTPUT : 31 
E 0000' CF 3C OO2AD MOVZWL AED_T_CORLINE+8, -(SP) : 31 
66 06 02B2 INCL (SPY : 31 
7 0000° cf A 00284 MOVZBL AED 8 LINE, =(SP) : : 1 
000000006 9 2 FB 0289 CALLS #2, SCRSERASE_LINE : 7] 
0000" DF 00 00 CO MOVL § @AED_T_CURLINE, NEW_TEXT_LINE ; : 1 
o¢ AE 08 Ag 80 02¢ MOVW B(NED TEXT LINE), OOTPUT—DESC : 31 
10 AE 14 AB SE OO2CA MOVAB 20(R8Y, OUTPUT_DESC+4 ; : 1 
01 DD OO02CF PUSHL #1 : 31 
7E 0000' CF 9A 00201 MOVZBL AED _B_LINE, -(SP) ; : 1 
f D6 00 6 INCL (SPY : 2] 
0000v CF 02 FB 002D CALLS #2, AED_SET_CURSOR : 31 
OC AE 9F 002DD PUSHAB OUT : 31 
00006 CF 01 FB 00 E CALLS #1, AEB _PUTOUTPUT ; 31 
E 08 AB 3C O02E MOVZ2WL 8 (NEW_TEXT_LINE), -(SP) : 71 
6E 06 0 £9 INCL (SP) ; 31 
7E 0000' CF 9A 002E MOVZBL AED_B_LINE, -(SP) : 31 
: D6 O02F INCL (SPY : 31 
000000006 00 é FB 0 i CALLS ‘ P SCRSERASE_LINE ; : 
0000' cf oF FB 28$: PUSHAB AEDT CURLINE 3 21 
0000v cf 1 Fe FF CALLS #1, AED POSITION : 31 
A 0000" CF 9 04 CMPB Ab LINE. 4 ; 31 
1 1A 00309 BGTRU 32$ ; 31 
1 DD 00308 PUSHL #1 ; 31 
14 DD OD PUSHL #20 ; 
0000v CF 03 FB f CALLS #2, AED_SET_CURSOR : 
000000006 FB 14 CALLS #0, SCRSUP SCROLL ; 
9000" cr OD 1 VL. AEO_L_BEGIALINE, NEW_TEXT_LINE ; 
000' CF 9A MOVZBL AED"B-LINE, R3 3 
2 04 CLRL 3 
D 11 BRB 0$ 3 
o¢ AE 08 Ag a 9 298 MOVW (NEW_TEXT_LINE), OUTPUT_DESC : 
10 AE 4 AB 9 : MOVAB 20(R8), OUTPUT_DESC+4 ; 
01 DD 00 PUSHL #1 ; 


agpssuen iPodeoct9ge 25:59:16 MNT eb fa4a5 we. 05742, rage 


DD PUSHL J : 

0000v CF 3 fe ; CALLS we AED SET_CURSOR ; 

oc A C PUSHAB oufey BESC ; 

00006 CF 0 £8 F CALLS & AED PUTOUTPUT : 

E OC AE ¢ 44 MOVZWL OUTPUT_BESC, -(SP) : 

D 48 INCL (SP) : 

DD 0034 SHL J : 

000000006 F CALLS #2, SCRSERASE_LINE : 
: D MOVL  (NEW_TEXT LINE), NEW_TEXT_LINE : 

CF f 6 9 : AOGLEG R § J, 298 : 
07 0000" CF § g 2$: BBC #5, AED_L_FLAGS, 33$ ; 
8 0000' cf i 6 HOVAB AE _T_CORCINE, NEW_TEXT_LINE : 

58 900 ' CF OD 69 33$:  MOVL #AED_T_CURLINE, NEW_TEXT_LINE ; 

000° ct 9A $ 4$: MOVZBL AED-B“LINE, J ; 

‘ 7 DECL ; 

4 1 7 BES 7$ 3 

50 0000' cf 0377 35$:  MOVAB AED_Q_LINETABLE, RO : 

50 D1 0037C CMPL  NEW-TEXT_LINE, RO ; 

1 if 7F BNEG 36$ ; 

14 3 D 1 CMPL : #20 : 

— 18 GEQ 8s : 

01 DD 00 PUSHL # : 

DD 00 PUSHL J ; 

000000006 00 9 FB 0 A CALLS 2. SCRSERASE _PAGE ; 
OC AE 08 As HY 0393 36$:  MOVW (NEW_TEXT_LINE), OUTPUT_DESC : 

10 AE 14 AB SE 00398 MOVAB 20(R8), OUTPUT_DESC+4 : 

1 DD 0039D PUSHL #1 : 

: DD 0 OF PUSHL J ; 

0000v CF FB O03A1 CALLS #2, AED _SET_CURSOR : 

OC AE 9F 0036 PUSHAB OUTPUT BESC ; 

00006 CF 01 FB 003A9 CALLS #1, AEB PUTOUTPUT ; 

E 0c AE 3C 00 Ag MOVZWL OUTPUT_BESC, -(SP) : 

: D6 0038 INCL (SP) : 

DD 00384 PUSHL J : 

000000006 Q 02 F B6 CALLS #2, SCRSERASE_LINE : 
68 D Bb MOVL (NEW _TEXT INE), NEW_TEXT_LINE ; 

B83 5 14 F CO 37$: AOBL EQ a ; 
0000' CF 06 ac 01 gi 03¢4 38$:  ADDB3 #1, @POSITION, AED_B_COLUMN ; 
E 0000' CF 9A 003¢ MOVZ7BL AEO_B_COLUMN, -(SPT ; 

7E 0000" CF 9A 0030 MOVZBL AED“B-LINE, -(SP) : 

0000v cr Ge FB D CALLS #2, AED _SEf _CURSOR ; 

0 p DA 39$: MOVL #1. R ; 

4 00300 RET ; 

50 b4 9 DE 408 CLRL =. RO ; 

4 003E RET : 


3; Routine Size: 993 bytes, Routine Base: S$CODES + 0398 
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3; 6 1 1 GLOBAL ROUTINE AED_COPSEGMENT (SEGMENT_ADDR) = 

: i i lee 

3 5 1 ! 

FH} } : FUNCTIONAL DESCRIPTION: 

3 © 1 3 : This routine copies the specified Line segment to the current 
: o7 ! § ! : Line working storage area. 

Fy rah 1 1 ! CALLING SEQUENCE: 

H 5 1 : : AED_COPSEGMENT (ARG1) 

; ge i 91 1 | INPUT PARAMETERS: 

$ 2 : \) : ARG1: address of the desired Line segment 

3 ge9 1094 1°! IMPLICIT IMPUTS: 

3; 648 1095 1! AED_T_CURLINE: current Line working storage 

3 rch ! 38 ! AED-Q"LINETABLE: Line segment List head 

3; 651 1098 1 ! OUTPUT PARAMETERS: 

3 $26 10 1! none 

3; 65 1100 1! 

3 654 1101 1 =! IMPLICIT OUTPUTS: 

; 655 1106 1! none 

3 026 1105 1! 

3; 695 1106 1 ! ROUTINE VALUE: 

3; 658 1105 171! none 

3; 659 1198 1! 

; 660 11 1 ! SIDE EFFECTS: 

3; 661 1308 1! none 

3 666 1109 1! 

3; 66 1139 1 !-- 

; 664 111 1 

; 665 11g BEGIN 

; 66 111 

; 6 1114 P 

3 oo8 BE SEGMENT_ADDR : REF $BBLOCK; 

; iA We IF .SEGMENT_ADDR NEQA AED_Q LINETABLE 

; 671 1113 THEN CHSMOVE (SBYTEOFFSETTLINE_T_TEXT), .SEGMENT_ADDR, AED_T  Papahineh 
3 67 111 CHSMOVE (.SEGMENT_ADDRELINE_W_SIZE), SEGMENT_ADDRCLINE_T_TEXTJ, 
3 67 1120 AED_T_CURLINECLINE-T-TEXTI); 

H ore 1 1 AED_T_CURLINECCINE_V_REPLACE) = 1; 

3 44 1 § RETURN 1; 

; 678 1125 17 END; ! End of routine AED_COPSEGMENT 


Save R2,R3,R4,R5,R6 
RO 


SEGMENT 


R, R 
Pf PRBLES 


ngpégune 1EStont9ee 25:58:16 YM OLsag 52 ne. 0042, 
8609" tf 3 08 Hi ts 1$: move Bind) s0tRe) hE ott + CURL INE +20 
0008 cr a8 : a at 48, AED. D_T_CURLINE 08 


; Routine Size: 39 bytes, Routine Base: $CODE$ + 0779 
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GLOBAL ROUTINE AED_REPSEGMENT = 


AED_L_STATUS = ALLOCATE (.SEGMENT_SIZE + SBYTEOFFSET (LINE_T_TEXT), 
NEW_TEXT_LINE); 

If NOT .AED_L_STATUS 

THEN 


MEUM —OOOBVNOVUEWN “OOONOULSWN—O 


§ 11 § 1 

2 ee See 

: 6 5 11 § 1 i 

: ? ¢ 1 , ! FUNCTIONAL DESCRIPTION: 

3 6 i} § ! This routine replaces the specified segment with the new one given. 
: 6 1134 1 | CALLING SEQUENCE: 

: $83 iB 5 ! AED_REPSEGMENT () 

: 691 11 $ 1 ' INPUT PARAMETERS: 

8 ie! Bl a 

: 69% 1140 1! IMPLICIT IMPUTS: 

3; 695 1141 1! AED_L_STATUS: global return status 

; 696 1106 1! AED_T_CURLINE: segment wort ine storage 

; 697 11445 1! AED_L_FIRSTLINE: address of first segment of ACE 
> 698 1144 1! AED_L_LASTLINE: address of last segment of AC 

; 344 1302 : H AED_L_BEGINLINE: address of first line of display 
: 701 11e7 1 | OUTPUT PARAMETERS: 

: n 1323 : ARG1: total size of alt segments 

: 704 1150 1! IMPLICIT OUTPUTS: 

: ae 1133 : : none 

: 707 1133 1 ' ROUTINE VALUE: 

Opa oi en. 

: 1136 3 i SIDE EFFECTS: 

: 1 1157 1! none 

; 71 1158 1! 

ian se 

; 1161 BEGIN 

: 71 1183 BIND 

: : 1188 SEGMENT_SIZE = AED_T_CURLINECLINE_W_SIZE] : WORD; 
: : 1166 2 LOCAL 

3 116 NEW_TEXT_LINE : REF S$BBLOCK, !' Address of new segment 
: 1168 REMOVED _CINE : REF S$BBLOCK; ! Address of segment removed 
; 113 

3 1171 

3 1176 

3 117 

3 1174 

3 1175 

5 1128 

3 117 

3 1123 

3 117 

3 1180 

3 1181 

3 1182 


NNN NSS IS nN 


SIGM:. (.AED_L_STATUS); 
RETURN 0; 
CHSMOVE (.SEGMENT SIZE + SBYTEOFFSET (LINE_T_TEXT), 
AED_T_CURLINE, .NEW TEXT LINE); 
IF .SEGMENT SIZE EQL 0 THEN REW_TEXT_LINECLINE V DUMMY) = 1; 
INSQUE (NEW-TEXT _LINECLINE_L_FLINK), AED T CURCIRECLINE_L_FLINK)); 
REMQUE (AED-T_CURLINECLINE-L-FLINK], REMOVED_LINE); 
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AX-11 Bliss-32 V4.0-742 
ACLEDT.SRC JAEDSUBR.B32; 1 


a bt L STATU UR OR 


6 


: Ht RES _C WORSTERR, R1 

AED_L_WORSTERR 

MENT SIZE, RO 

N Ww TEXT_LINE, R6 
AED. CURLINE 

SEGHENT 

6 

a 

AED te GREINES R 


LINE 
ate : site ae We SVE LIME 
(SP + #532,~ AED_T_CURLINE 


BON" DSBAVle-wDyS 
Cad 


(R6) 


AED_ INE, RO 
G 


T_CURL 
AED LIBEGINLINE, RO 
NEW_TEXT_LINE, AED. L_BEGINLINE 
AED-T_CURLINE 
AED L-FIRSTL ne’ RO 
NEW_TEXT_LINE, AED L_FIRSTLINE 
AED-T_CURLINE 
AED LILASTLI Tne. RO 
NEW_TEXT_LINE, A D_L_LASTLINE 
N WITEXT“LI NE 4 

7 (ROD és 

10(RO) 

50tRO) REMOVED_LINE 
Removed LINE, 
8(RO), AED W.TOTALSIZE 
REMOVED LINE 
8(RO), &(SP) 
#20, 4(SP) 
4(SP) 
#2, LIBSFREE_VM 
NEW_TEXT_LINE, RO 
RO 
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: } 5 1 GLOBAL ROUTINE AED_POSITION (LINE_ADDRESS) : NOVALUE = 

; 1 i tee 

3 1 1! 

5 : i : FUNCTIONAL DESCRIPTION: 

; 121 1 This routine positions the cursor to the selected line. If necessary 
3 121 1! it will also scroll up or down the display so that the selected Line 
3 } i } : may be viewed. 

; 1215 1 | CALLING SEQUENCE: 

; : 18 } 1 AED_POSITION (ARG1) 

; 1218 1 | INPUT PARAMETERS: 

; : 18 : : ARG1: address of the Line segment to position to 

; 1 1 | IMPLICIT INPUTS: 

3 1 1! AED_L_BEGINLINE: address of the first Line of the display 

; 1 1! AED_Q_LINETABLE: address of the Line table List hea 

3 1 ¢ } : AED_B_LINE: the current Line position within the display 

: 1 6 1 ! OUTPUT PARAMETERS: 

3 : : } none 

; 1559 | i IMPLICIT OUTPUTS: 

3 1230 1! AED_L_BEGINLINE: address of the first Line of the display 

; : 1 : } AED_B_LINE: the current Line position within the display 

; 1 f 1 | ROUTINE VALUE: 

F} 1234 1! none 

: 1235 1! 

3 1 1 ! SIDE EFFECTS: 

; 1 1! The display is scrolled as necessary to view the selected Line 

3 1 1! segment. 

5 1 § 1! 

: et yt = 

; 1 48 BEGIN 

; 1$ez MAP 

; 43 LINE_ADDRESS =: REF SBBLOCK; ! Address of the segment 

; 1509 MACRO 

; \ $8 POS_BEGIN_SEEN = 0, 0, 1, 0 %; ! First Line of display seen 
; 1250 2 LOCAL 

3 1 24 OUTPUT _DESC : SBBLOCK COSCSC_S_BLNI, ! Output line descr 
3 1 26 NEXT TEXT_LINE =: REF eeLork. ! Address of next Line segment 
3 { ? POS_FLAGS : SBBLOCK (1); ! Local positioning flags 

; \ i ' Quick check to see if the cursor must move at all. 

; 125 AED_B_LINE = 1; 

3 ! 28 IF LINE_ADDRESS EQL .AED_L_BEGINLINE THEN RETURN; 

: 126 ' Traverse the Line segment table looking for the selected Line segment and 
; 1 $4 ! the current first line of the display.” This will determine ‘t ony scrolling 


————$—$———— rc— 
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yon .008 Varee=]3Re FFig3i4S ARTES begs 38 we. 08 282, age 
! is needed and what the qiepet ten wi will be. If the selected Line occurs before 
' the first Line of the q splay. ty Ll be n cessery to scroll down. If the 
! selected Line occurs after the first Line, Ll be necessary to scroll up. 


NEXT_TEXT_LINE = .AED_Q _LINETABLECLINE_L_FLINK); 
POS "FLAGSEPOS. BEGIN. SEES = 0; == 


pare eNEXT_TEXT_LINE EQL .LINE_ADDRESS 


— tt 
OwOon 
PAA AOAAO 


WMO DOONAN ES WN $$ O OD NONE WI OO DNAULS UT 


BEGIN 
IF NEXT_TEXT_LINE EQL .AED_L_BEGINLINE 


BEGIN 
POS_FLAGSCPOS_BEGIN_SEEN] = 1; 
EXITLOOP; 


ND; 
NEXT_TEXT LINE = ,NEXT_TEXT_LINECLINE_L_FLINKI; 


NEXT_TEXT_LINE = .AED_L_BEGINLINE; 
IF .POS_FLAGSCPOS_BEGIN_ SEEN] 
THEN 


BEGIN ! Move forward/scroll up 
pate oNEXT_TEXT_LINE EQL .LINE_ADDRESS 


OOOO WWW COO OOOO NINN NIN NIN NNO 


PSSA SS Sat eet terete 
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LINE = gNEXT. TEXT_LINECLINE_L_FLINKI; 
re B-LINE LSS 
Thel AED Ba LINES = .AED_B_LINE + 1 
94 Bee eer CURSOR (20, 1) | exee TEMP eeee 
° Py . «8 
890 95 SCRSUP SCROLL QO; 
51 9 AED_L_BEGINLINE = .AED_L_BEGINLINECLINE_L_FLINKI; 
B¢ 9 AED-SET_ CURSOR (20, 1)7 
5 98 OUTPUT_BESCCDSC$W_CENGTH] = .NEXT_TEXT_LINECLINE_W_SIZE EI; 
54 99 OUTPUT-DESCEDSCSA-POINTER] = NEXT-TEXT-LINELLINE~1-TEXT 
55 00 AED_PUTOUTPUT (OUTPUT_DESC); 
36 01 END: 
5 4 END; 
58 0 END 
5 04 2 ELSE 
5 BEGI ! Move backward/scroll down 
1 UNTIL .NEXT_TEXT_LINE EQL .LINE_ADDRESS 
j os BEGIN 
0 EXT TEXT_LINE = NEXT. TEXT_LINECLINE -L BLING: 
5 10 AED_SET CORSOR (1, 1);~ TEMP tee 
11 SCREDOMR SCROLL (5; 
1g SCRSERASE PAGE (21, 1); 
1 AED set CORSOR (1, 1); 
14 OUTPUT _BESCCDSC$W_LENGTH) = NEXT TEXT LINEELINE_W.S1ZE}; 
15 OUTPUT~DESCEDSCSA-POINTER] = NEXT~TEXT-LINECLINET-TEXTJ: 
16 AED _PUTOUTPUT (OUTPUT DESC: 
18 AED_L NBEGINLINE = .NEXT_TEXT_LINE 


cd 
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: B74 131 END; 
3 ie 1 4 
; fi : RETURN; 
: 87 1 END; ! End of routine AED_POSITION 
00 .ENTRY AED_POSITION, Save R2,R3.R4 
34 9000y MOVAB AED-SET_CURSOR, R4 
MOV AED-L_BEGINLINE, R3 
Hi C SUBL2 #8, SP 
pc COA F MOVE #1. AED_B_LLINE 
20 13 MOVL  AED_L sREGINL INE 
5 04 16 CPL LINEA DDRESS, RG * 
52 8 1 MOVL AED_Q_LINETABLE, NEXT_TEXT_LINE 
51 BICB2 #1, POS _FLAGS 
04 AC 1$: CPL NEXT_TERT_LINE, LINE_ADDRESS 
50 9 CMPL § NEXT_TEXT_LINE, RO 
C BNE 
51 ; B1SB2 #1, POS_FLAGS 
52 3 28: MOVL (NEXT_TEXT_LINE), NEXT_TEXT_LINE 
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c ; 

CF ; 

i ; 

a : 

aC : 

8 F 

3 

% : 

38 ; 

: | 

5 3 

62 ° 3 

52 £5 y 38: MOVL. RO, NEXT_TEXT_LINE F 

3E 51 BLBC POS_FLAGS, : 

04 AC 36 i 4$: cHPL NEXT. TEXT. LINE, LINE_ADDRESS ; 
52 & "ies MOVL (NEXT _TEXT_LINE), NEXT_TEXT_LINE : 

14 pc = AS.—s«9'1:«(00047 CMPB = AED_BLINEs #2 : 

0 i 4B BGEQU : 

pc OA 4D INCB AED_B_LINE : 

EC 1 0005 BRB 4 : 

1 DD 00052 6s: PUSHL #1 : 

14 DD PUSHL ’ 0 : 

64 B : CALLS , AED_SET CURSOR ; 
000000006 00 a CALLS SCRSUP SCR : 
6 MOVL Shep w RBEGINC INES AED_L_BEGINLINE : 

1 DD PUSHL F 

i, D PUSHL #30 F 

64 : CALLS , AED_SET_CURSOR : 

6E 08 A A MOV sit EXT_TEXT“LINE), OUTPUT_DESC : 

04 AE 4 «OA i MOVAB O(R2)> OUTPUT_DESC+4 : 
00006 CF af FB 00075 CALLS i. AED_PUTOUTPUT ; 
04 AC i fC 78: CHPL = NEXT_TEXT_LINE, LINE_ADDRESS ; 
52 06 =A p0 ROVE 4(NEXT TEXT LINE), NEXT_TEXT_LINE : 

1 DD PUSHL @ : 

64 ; FB A CALLS #2, AED_SET_CURSOR : 
000000006 00 FB 00 CALLS #0. SCRSDOWN_SCROLL ; 


se 


8 
000000006 00 ; 4 
3 
t+ ow BB 
04 AE 9 A Be 
00006 CF 37 i 

4 1 

ey ® 
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; Routine Size: 188 bytes, Routine Base: S$CODES + 08C8 
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EXT TEXT-LINE) © OUTPUT DESC 
)> OUTPUT_DESC+4 
AED_PUTOUTPUT 


XT_TEXT_LINE, AED_L_BEGINLINE 
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Me 000 i =300- 1383 #7:33:48 ACLEDT. SRCJAEDSUBR.B32; 1 - (3 
GLOBAL ROUTINE AED_UPDATEACL (TOTAL_SIZE) = 
'e¢ 
FUNCTIONAL DESCRIPTION: 

This routine. byege all the Line segments from AED_L LF IRSTL Ine 

=. ae baLA eytt mashes them together, converts the resulting 

ac y binary form, and then updates the in core copy 
of the ob ect's ACL. 


CALLING erst 
AED_UPDATEACL (ARG1) 


«- 


me 


oelo 
wiv 


SIDE Errectss 
The in core copy of the object's ACL is updated. The object's 
actual ACL is left untouched. tt gets updated at the end of the 
editing session. 


PAQAEAMAMAM AANA MII 


94 INPUT ROROnE ERS 

95 ARG1: total size of the new ACE text 

39 1 IMPLICIT INPUTS: 

98 § AED_L_FIRSTLINE: address of the first list secnent 
34 Z AED-L-LASTLINE: address of the Last iine segment 
901 45 OUTPUT PARAMETERS: 
ace § none 
90 4 
904 8 IMPLICIT OUTPUTS: 

905 none 

208 0 

90 1 ROUTINE VALUE: 

908 § 1 if success 

909 Z error status otherwise 
é 
0 


ae a sa ss St ot 
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LOCAL sans. ' Local routine exit status 
APPEND_ INDEX, ' Index for combining segments 
CURRENT. LINE. : REF Seax dcr act , Address of current 's segment 
NEW_ACE~ SBBLOCK CACL$S_READACL), ' Sto rage for converted ACE 
NEW ACE_SIZE : ! Size of ion b macy Of 

pest Bor Ock feStst-$-8 pin}. ! Bin nary AC descriptor 
ACES PERT DESC : $BBLOCK DSC$C- i Text ACE descr ptor 
C PROCESSED : WORD, ' Chars s processed by At ACL parser 
ATR_ARGLIST : BLOCKVECTOR (3, ioe -}TER. 6 ' ACL item lL 
ACL_CONTEXT; L context 


! If the total size of the ACE text gegnents is zero. determine if it is 
! necessary to delete the corresponding binary ACE 


IF .TOTAL_SIZE EQL 0 THEN RETURN 1; 
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ments together, and convert to a 


qncotensse all of the text Line 
n as syntax errors. 


e 

ary ACE. Any errors are signate 
LLASTL NECLINE_V ENDACE 21; 

L“STATUS = ALLOCATE (.TOTAL_SIZE, AED_A_ACLBUFFER); 

NOT .LOCAL_STATUS 


L 
GIN 


LOCAL STATUS); 
Loc ; 

_ 
a 


AL STATUS; 
ghEDoLFIRSTLINECLINEL_BLINK]; 


NE baFLINK): 

12E CURRENT LINECLINE_T_TEXTI. 
D_INDEX, 0, 8; 0J); 

CURRENT _LINECLINE.W_SIZE); 


Zur 


= 
INTER] = 
_LENGTH 
SA~POINTER 


ARSE_ACL ( TEXT_DESC, 


AR_PROCESSED); 


m> Pw 


NOT .LOCAL_STATUS 


N 
BEGI 
AED_L_FLAGSCAED_V_ACERROR] = 1; 
SIGRAL (AED$_SYATAX, 2, .TOTAL SIZE - .CHAR_PROCESSED 
AED_A_ACLBUFFERC.CHAR_PROCESSED, 0, 8, 02. 
.LOCAC_STATUS, 0); 


RETURN AEDS_SYNTAX; 
NEW_ACE.SIZE = .NEW_ACECACESB_SIZE); 


! Check for a hidden ACE. Since they are application specific, the ACL 
! editor is not allowed to touch them. 


IF .NEW_ACECACESV_HIDDEN) 
THEN 


' In case of a duplicate 


BEGIN 

AED L PL agstace V_ACERROR] = 1; 
SIGRAC (AEDS _NORIDDEN); 

— AEDS_ROHIDDEN; 


' Check for directory default ACEs. 
! note the error. 


ft, ,NEU_ACECACESY_DEF AULT? AND NOT .AED_L_FLAGSCAED_V_DIRECTORY) 


If the object is not a directory file, 


BEGIN 
AED_L_FLAGSCAED_V_ACERROR] = 1; 


AX-11 Blis 
ACLEDT.SRC 


AESsUGR B S341 Page 3) 


om 


. 
e 
o 
~ 
o 
* 
* 
. 
. 
2 
o 
* 
o 
o 
e 
. 
* 
7 
. 
. 
oe 
. 
o 
- 
e 
o 
o 
. 
eo 
. 
° 
. 
o 
. 
e 
o 
o 
- 
e 
. 
o 
& 
° 
. 
ao 
. 
a 
. 
& 
. 
° 
. 
. 
. 
o 
. 
® 
. 
7 
° 
. 
* 
e 
& 
o 
. 
e 
. 
e 
. 
° 
a 
e 
. 
o 
. 
a 
7 
o 
. 
e 
. 
a 
. 
° 
° 
o 
. 
. 
* 
* 
7 
o 
2 
e 
. 
° 
. 
e 
. 
e 
a 
o 
° 
° 
. 
° 
° 
o 
° 
° 
. 
o 


voe=000" 


Se Se Fe Se Se Ge Se Se Ge Ge Se SH Sse FE Gs Se Ge SF Sse SH Ge Se Ss Se Ge Se Gs SF Ss Ss Se Se Se Se HSS Se Se SF Se Ss Ge SESS SS Se es 


wv 


wn 


ws 


S238 


MEW O ODNOULS WN “OOOVNOUE WO 


i a 


SOOOCOCOCOCOCCoCCoCoooooooocoeooeoo: 


RSS SSNS ore 


me ee me a a et ad ed ed oe 2 2 = = = 2 
S 
Oooo 


z 


12 
1S-Sen-1986 28:59:16 YAN BL iene? 40-742, Page 38 
Sah SOS oeRRAe 


! Check to see if the I am adding an already existing ACE. If so, warn the 
! user about the duplicate. This means that the text display actually 
! reflects the true state of the ACL. 


CURRENT LINE = .AED_Q_LINETABLECLINE L_FLINKI; 
UNTIL -CURRENT_LINE EGLA AED_Q_LINETABCECLINE_L_FLINK] 


AND .CURREN 
THEN IF CHSEG 
Et -BINACED. ACESB_SIZEJ, 


Zoz 


AND .CURREN 
THEN 


BEG 

SIGNAL (AED$_DUPLICATE); 

DEALLOCATE (NEW ACE SIZE, AED_L_FIRSTLINECLINE_L_BINACE)); 
RETURN AED$_DUPLICATE; 


END; 
CURRENT LINE = .CURRENT_LINECLINE_L_FLINK]; 


! If there is an ACE already, deallocate it. 

IF .AED_L_FIRSTLINECLINE f-BINACE) NEQ 0 

THEN DEALCOCATE (.$BBLOCRE-AED_L di bangiht, L_BINACE], ACE$B_SIZEJ, 
AED_L_FIRSTLINECLINE_L_BINACEJ); 

! So far, so good. Allocate storage for the binary ACE, and save it. 


LOCAL_STATUS = ALLOCATE (.NEW_ACE_SIZE, AED_L_FIRSTLINECLINE_L_BINACE)); 
If NOT .LOCAL_STATUS 


BEGIN 
SIGNAL (.LOCAL_ STATUS); 
RETURN .LOCAL_STATUS; 


ND; 
CHSMOVE (.NEW_ACE_SIZE, NEW_ACE, .AED_L_FIRSTLINECLINE_L_BINACE)); 
RETURN 1; ! End of routine AED_UPDATEACL 
END; 
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-EXTRN SYSSPARSE_ACL 
OFFC 00000 ENTRY AED UPDATEACL. Save R2,R3.R4.R5,R6,R7.R8.~ 
B 000000006 00 9€ 0000 MOVAB SCRSSEf_CURSOR, R11 
sh Boos F 3f 09009 MOVAB AgD 7 FCAGS, R10 
E FOC4 ~«CE 9E O000E M -572(SP), SP 
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58 04 =A 1 MOV TOTAL_SIZE, R8 : 1379 
0s i 1? BNEG bs : 
5 os ORE ie 18 BOL AED.L_LASTLINE, RO > 1386 
vee Ae 6c + i 6 peaks 4 Oa 1385 
*e 6 ORB | Bike fin 3 
000000006 90 ; f CALLS #2, LIBSGET VM : 
: D MOVL RO. VM_STAT : 
0 6 5 BLBC_  VMSTATUS, ; 
58 00 6E <? = C ; MOVCS #0, (SP), #0, R8, @AED_A_ACLBUFFER : 
59 D 42 2% MOVL § VM_STATUS, LOCAL_STATUS ; 
46 ; eB 004 BLBS LOCAL STATUS 7$- + 1386 
12 6A E1 0004 BBC #3, AED_L_FLAGS, 3$ : 1389 
1 0D 0004¢ PUSHL #1 : 
15 DD 0004 PUSHL 4 : 
000000006 00 02 FB 0005 CALLS #2, SCRSERASE_PAGE : 
1 DD 0005 PUSHL #1 : 
15 DD 00059 PUSHL ag : 
68 08 FB 0005B CALLS #2, SCRSSET_CURSOR ; 
DD O00SE 3$ PUSHL LOCAL_STATUS : 
000000006 00 01 FB 000 CALLS #1, LIBSSIGNAL ; 
08 gA 03 £1 000 BBC #3. AED _L_FLAGS, 4$ ; 
E 30 AA 9A 00068 MOVZBL AED_B_COLOMN, -(SP) : 
7E 4 AA 9A O06F MOVZBL AED_8 LINE, =(SP) : 
68 08 F 09 3 CALLS #2, SCRSSET CURSOR ; 
07 93 00 i: 4$: BITS | LOCAL_STATUS, # ; 
03 1 900 BNEQ g : 
02¢2 31 00078 5$: BRW . 35$ : 
50 59 03 6 EF 00075 6$: EXTzv. #0, 3. LOCAL_STATUS, RO F 
50 16 AA 3 0 FD 008 CMPZV #0. #3. AED_L“WORSTERR, RO ; 
FO 6 90089 BGEQ ; 
O2AE 31 000 BRW 4$ : 
50 40 AA DO OO08E 7$ MOVL  AED_L_FIRSTLINE, RO + 1392 
56 04 Ag DO 0009 MOVL  4(RO)> CURRENT_LINE ; 
57 D4 000 CLRL § APPEND_INDEX : 1393 
56 66 00 0098 8$: MOVL_  (CURRERT LINE), CURRENT_LINE : 139 
6C BAG7 14 6 08 Aé 28 00098 MOVC3 &8(CURRENT LINES, 20(CURRENT LINE), ~ : 1398 
AED A_ACCBUF F ERCAPPEND_ INDEX ; 
50 08 Ab 36 900a3 MOVZWL 8 (CURRENT LINE), RO : 1399 
57 20 CO 000A ADDL2. RO, APPEND INDEX ; 
44 AA : AA CMPL ‘wigeiged AED_L_LASTLINE + 1401 
34 AE 0290 GF 3 08 MOVW #512, ACE_DESC ; 1408 
8 AE Cc (OA B6 MOVAB NEW.ACE, RCE_DESC+4 : 140 
Hi AE 58 80 000BB MOVW R&, ACE TEXT DESC + 1404 
AE 6c AA OD BF MOVL § AEO_A_ACLBUFFER, ACE_TEXT_DESC+4 : 1405 
7E D4 000C4 CLRL > 1408 
8 AE 9F 000C PUSHAB CHAR PROCESSED : 
C AE 9F 000C PUSHAB ACE_DESC ; 
é AE F 000CC PUSHAB ACE TEXT DESC : 
000000006 00 F CF CALLS #4, “SYSS$PARSE_ACL F 
esa 409 
6A 40 «BF 5 DC BISB2 Lote RED_L_FLAGS : 1412 


Sm 


ngDs suse yBrBeoct9Rs 25:59:16 YAM NT eh in9=52, 44. 05742. Page 40 


12 6A E1 000E0 C #3, AED_L_FLAGS, 9$ : 1415 : 
rat : : 

000000006 00 fa £8 CALLS #2, SCRSERASE_PAGE ; : 

DD OOOEF PUSHL # : : 

DD OO0F PUSHL #21 : : 

68 FB F CALLS #2, SCRSSET_CURSOR : ; 

3 D FS 9S: CLAL 4s = ¢§P) : : 

D O00F PUSHL LOCAL_STATUS : 3 

50 0c AE C OOOFA MOVZWL CHAR_PROCESSED, RO : ; 

SOME Hts ROTI BURR ARSE gS” : ; 

7E 23 p es 1 UBL S Rd, RB, -(SP) ° : : 
DD 0010A PUSHL # : : 

000000006 8F DD 001 PUSHL #AED$_SYNTAX : : 

000000006 00 ; Fe 11 CALLS #6, LIBSSIGNAL : : 

08 A F 011 BBC #3, AED L_FLAGS, 10$ : : 
E 30 AA 9A 00110 MOVZBL AED 8. COLOMN, ee : ; 

7E 4 AA 9A 91 1 MOVZBL AED_8 LINE SP) : : 

02 FB 00125 CALLS “STRSSET CURSOR : ; 

00000000* oF p o1 8 108: ist #<AEDS$_SYNTAX87> : 3 

00000000" 8F 146 AA 03 0 ED 01 6 CMP ZV #0, #3, AED_L_WORSTERR, #<AEDS_SYNTAXE7> =; 
14 AA 000000006 8F 00 0013¢ MOVL §§ #AEDS_SYNTAX, AED_L_WORSTERR : : 

50 000000006 &F B O144 11$: MOVL WAEDS"SYNTAX, RO ~ + 1416 : 

57 3¢ AE 3 014C 12$: MOVB NEW_AC -ACE. aheW W ACE SIZE : 141 ; 

SA 3F AE Fi O13 BBC &$ : 14 : 
6A 40 8F 88 001 B1SB2 meh, ti Orca > 1426 : 

12 6A 3 £1 00159 BBC J *aeD-CCFLAGS. 13$ t 1427 : 
1 DD 00150 PUSHL #1 : : 

15 DD 0015F PUSHL 4 1 : 3 

000000006 00 02 FB 00161 CALLS , SCRSERASE_PAGE : 3 
DD 0168 PUSHL ; : : 

15 DD O016A PUSHL ; ; ; 

68 2 FB 0016C CALLS #2, SCRSSET_CURSOR : : 

000000006 8F DD OO16F 13$:  PUSHL #AED$_NOHIDBEN ; : 

000000006 00 1 Fe 175 CALLS #1, CIBSSIGNAL F ; 
0B A 3 170 BBC a3. AED . of Ass 14$ : : 
E 30 AA 9A 001 MOVZBL AED_B sr) : : 

7E 4 AA 9A 001 MOVZBL ADB “UN ; : 

2 FB 001 CALLS #2, SCR ee conse ; : 

00000000* f : 14$: ist #<heDs_ NOHIBDENS : : 

00000000* Ff 146 AA 03 ' i 3 CHP ZV #0, #3, AED_L_WORSTERR, #<AEDS_NOHIDDENS7> ; 3 
14 F DO 0019F MOVL j§§ #AEDS_NOHIDDEN, AED_L_WORSTERR ; : 

50 Fete ; 20 1A? 15$: MOVL #AEDS-NOHIDDEN, R ab : 1428 : 

SF AE E9 OOIAF 16S BLBC W_ACE+3, 208 + 1434 3 

5A 02 AA so (8 be 18 BBS Fi ae AED L FLAGS #2, 208 ae ; 
12 6A 3 €1 0018 C ; , AED_C_ FLAGS: 17$ ; 1238 : 
1 0D O01C PUSHL @# ; 3 

3 DD 001C PUSHL #21 ; : 

000000006 00 02 FB O01C CALLS #2, SCRSERASE_PAGE ; : 
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00000000" 8F 14 AA 
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50 00 3¢ 
40 
12 
000000006 
000000006 
08 
00000000" 8F 14 AA 
14 
7E 40 
04 
000000006 


68 
000000006 


00 
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AA 000000006 
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i 000000006 
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So 
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p-198e fi:82:48 — YACLeDresneSagbsuBAcBser1 


fst 

¢ ScRSSET CURSOR 
#AEDS_NODEFA 

#1, LIBSSIGNAL 

#3. AED_L 
AE6_B_COL 

AED“B LINE (SP) 
’ str S 

#<hed _N 


9, #3, AED_L_WORSTERR, #<AEDS_NODEFAULT&7> : 


#AEDS_NODEFAULT, AED_L_WORSTERR 
#AEDS_NODEFAULT, RO 


AED_Q_LINETABLE, CURRENT_LINE 
AED-Q-LINETABLE, RO 
C RREAT LINE. rb 


$ 
JOCCURRENT_LINE), 24$ 
12 CURRENT LINED 
25$ 


NEW_ACE_SIZE, R1 
@i2TCURRENT_LINE), RO 
R1, NEW_ACE> #0, RO, @12(CURRENT_LINE) 


28$ 
" peekaiep AED_L_F IRSTLINE 


#3, AED_L_FLAGS, 25$ 


es 
ase SCRSERASE _PAGE 


#21 

‘5 CRSSET_CURSOR 
#AEDS DUPLICATE 

Ag ete 26$ 
AEO_B_COLOMN, -(SP) 
AED=B LINE =(SP) 

#2, “SCRSSET_CURSOR 
#<AEDS_DUPLICATES&7> 


#0, #3, AED_L_WORSTERR, #<AEDS_DUPLICATE&7> ; 


AEDS DUPLICATE, AED_L_WORSTERR 
#12, RED_L_FIRSTLINE, =(SP) 

NEW ACE SIZE. 4(SP) 

#2 LIBSEREE vm 
#AEDS_DUPLICATE, RO 


(CURRENT_LINE), CURRENT _LINE 


04 
alata * 
4 


7E 


000000006 


51 00 


12 


000000006 


000000006 
08 


14 


oc 80 3¢ 


3; Routine Size: 853 bytes, Routine Base: 
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71986 97:53:58 


FIRSTLINE, RO 


@OfOmovrwnsr— 


WM MNMMMMMMOCVOMOOOow 
WIPED 


1 OO & "Co 


vAL ED " FLAGS. 32$ 
i SCRSERASE_PAGE 


* scasset CURSOR 
AL STATU 


Detter CURSOR 
COcAL _STATUS, #7 


» LOCAL_STATUS, RO 
> AED oh “WORSTERR, RO 


LOCAL_STATUS, ‘ D_L_WORSTERR 
LOCAL “STATUS, R 


ASERS SNARE SSSENS 


Ouoyrurwe VMNOOOM10 PW FP OOO $00" COMM1D O KF Vivo SN1oorgayr—Pr Kron 
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13 
AEDSSUBR te -1984 23:59: AX-11 Bliss-32 V4.0-742 
v5e2000 12-808=1 382 #7 :33:48 ACLEDT. RC VAEDSUBR 83251 
; GLOBAL ROUTINE AED_SET_CURSOR (LINE, COLUMN) = 
4 
' 
FUNCTIONAL DESCRIPTION: 
This routine sets the desired cursor position. As a side effect, 
it remembers the last position set. This is to allow screen refresh 
to correctly set the cursor position after repainting the screen. 


CALLING SEQUENCE: 
AED_SET_CURSOR (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: Line to which the cursor is set 
ARG2: column to which the cursor is set 


IMPLICIT INPUTS: 
none 


WN O OONAVUL WN SO OONOUS wT 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
AED_B_SAVE_COL: saved column position 
AED_B_SAVE_LIN: saves Line position 


aay a VALUE : 


SSSSESSES COC COC SOO SEP ESEEE 


St 


SIDE EFFECTS: 
none 


BEGIN 
! Remember the position being set. 


AED_B_SAVE_LIN = .LINE; 
AED_B_SAVE_COL = .COLUMN; 


SOOoOooooooocoec“eao 
LN 
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a a ee kk a ee a kd a a a dd 
WN SPPUNIPYINOPNIDINDS 9 2 OO SS | MQCC COOCOCOCOCOCCOOOOOOOOOWMWMood 


a a a a a a a ee ee a a a ad ad a ddd dd 
Se ee eas sh sh Ab Ab Ab Ab db dh Ab Ab Ab ab ah db db dh ab ab Ab db db Al tet et et el el ee ee ee ee ee ee ee ee ee 
WN =O ODNAUES WN O ODNAM EWN 3 O OONAUE WN O OBNAUE WIN OOONOUM 
ROPOROPOPOPOPOPOPONINIPUIS 9 2 2 2 a tt 


One ! Now, set the cursor. 
O86 SCRSSET_CURSOR (.LINE, .COLUMN); 
3 RETURN 1; 
090 END; ! End of routine AED_SET_CURSOR 
aaa 8 ENTRY AED_SET_CURSOR, Save nothing 
0008 CF Be At 0 MOVB LINE, AED B_SAVE_ LIN 
00 CF 8 AC 9 MOVB COLUMN, AED-B_SAVE_COL 


—————Eeee Cc 


nsposuse HeBeo-1964 4:59:16 yaMet oLien32 v4-0-742, 
000000006 o5 " 05 i nat ite He. *ScRSSET. CURSOR 


; Routine Size: 29 bytes, Routine Base: S$CODE$S + OCD9 


Used: 319 ob 
Compilation Complete 


: 1091 1534 1 

3 1936 1535 1 END 

3; 109 1536 0 ELUDOM 

3 PSECT SUMMARY 

: Name Bytes Attributes 

; AED_ COMMON 1320 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(O) 
; ScOoBEs 3318 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 

Bietse ee, Set Bee Ls ee es a. Symbols -ocoso-- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIB 8.3221 18619 3 1000 00:01. 

3 Heyes § SYSLIBJTPAMAC.L32;1 42 6 6 14 $0;00:3 

: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INIJTIAL,OPTIMIZE)/LIS=LIS$:AEDSUBR/OBJ=OBJ$:AEDSUBR MSRC$:AEDSUBR/UPDATE=(ENHS$: AEDSUBR) 
; a a! any 1320 data bytes 

: Elapsed Tine: :27. 

3 Lines/CPU Min Fs 

3 Lexemes/CPU-Min: 19 
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